#!/usr/bin/perl

use strict;
use warnings;
use Carp::Clan;
use Data::Dumper;
use Storable;
use lib 'lib';
use Chatter;

my $RECURSE = 1; # ユーザ再帰取得

# 引数
my $UID = shift;
my $PWD = shift;
die "usage: $0 USERID PASSWORD\n" if(!$UID || !$PWD);

# ログオン
my $chatter = Chatter->new($UID, $PWD);
my $content = $chatter->logon();
print "ログオン完了\n";

# ユーザ一覧取得
my $userlist = $chatter->getUserList($RECURSE);
print "ユーザ一覧取得完了\n";

# スレッド一覧取得
my @threadlist;
for(my $i=0; $i < scalar(@$userlist); $i++){
  my $list = $chatter->getThreadList(@$userlist[$i]);
  push(@threadlist, $list);
}
print "スレッド一覧取得完了\n";

# リプライ取得
my @tweetlist;
for(my $i=0; $i < scalar(@threadlist); $i++){
  my $tweet = $chatter->getReplyList($threadlist[$i]);
  push(@tweetlist, $tweet);
}

# シリアライズ
store \@tweetlist, 'serialized.dat';
print "END\n";
exit;

